From bd8977eb6ba96a2881f75a4dbbc56ec6ecb81bdc Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 6 Mar 2001 10:57:09 +0000 Subject: [PATCH] (flyspell-region): Set up flyspell-local-mouse-map. --- lisp/textmodes/flyspell.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 707315a0232..a7ea86d8fa1 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -1357,6 +1357,13 @@ Word syntax described by `ispell-dictionary-alist' (which see)." (defun flyspell-region (beg end) "Flyspell text between BEG and END." (interactive "r") + (unless (boundp 'flyspell-local-mouse-map) + (set (make-local-variable 'flyspell-local-mouse-map) + (let ((map (copy-keymap flyspell-mouse-map))) + (if (eq flyspell-emacs 'xemacs) + (set-keymap-parents (list (current-local-map))) + (set-keymap-parent map (current-local-map))) + map))) (if (= beg end) () (save-excursion -- 2.30.2